|
|  Putt Putt Patience
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "Putt Putt"

  FLAGS  ClickFly AnimateFly
  PACKS  1
  WIDTH  7 * CW
  HEIGHT CH + 4 * COH + COH + CH
  ZeroToWin 52 - CARDSIN$2 - CARDSIN$3

| Foundation

  FOUNDATION
    X 3 * CW + CW / 2
    Y CH + 4 * COH + COH
    DEAL 1,1
    DRAGUPTO 0
    MAX 52
    JoinOffset 1,-1
    FLAGS PaintLast Join____ RotateJoin
    ID 2
  END

| Tableau

  FOR pack = 0 TO 6
    STACK
      X pack * CW
      Y 0
      MAX 0
      DEAL 5,1
      DragUpTo 1
      FLAGS ClickFly
      ID 1
    END
  END

| Stock

  STACK
    X 2 * CW + CW / 2
    Y CH + 4 * COH + COH
    DEAL 16
    DEALTO 2,1
    TakeFrom 0
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

END
